home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / Emulatoren / MACDISKV2,0.DMS / in.adf / Install MaxDOS < prev    next >
Encoding:
Text File  |  1994-09-08  |  8.1 KB  |  277 lines
  1. ; $VER: Install 37.0 (8.4.94)
  2. ; Script to install MaxDOS
  3.  
  4. ; Global variables
  5.  
  6. (set @default-dest "SYS:")
  7.  
  8. (complete 0)
  9.  
  10. (set #introduction
  11. (cat "\n\n\n\This program lets you install MaxDOS 2.0\n"
  12.     "from Media4 Productions on your system.\n\n"
  13.     "Any version of MaxDOS already present\nwill be replaced.\n\n"
  14.     "Do you wish to proceed with the installation?"
  15. ))
  16.  
  17. (set #ask-com-auto-start
  18. (cat "\n\nDo you want the MaxDOS commodity to be started "
  19.     "automatically when you boot your system?"
  20. ))
  21.  
  22. (set #com-auto-start-help
  23. (cat "\n   The MaxDOS commodity is a useful companion "
  24.     "to MaxDOSFileSystem, allowing control of data and resource fork display, "
  25.     "text translation, and display of hidden files."
  26.  
  27.     "\n\n   Selecting \"Yes\" will place the MaxDOS commodity in "
  28.     "your \"WBStartup\" drawer, causing it to be started "
  29.     "automatically when you boot your system."
  30.     "\n\n   Selecting \"No\" will allow you to specify a destination "
  31.     "for the commodity."
  32. ))
  33.  
  34. (set #ask-auto-com-1
  35. (cat "Yes"
  36. ))
  37.  
  38. (set #ask-auto-com-2
  39. (cat "No"
  40. ))
  41.  
  42. (set #commod-dest-help
  43. (cat "\n   This allows you to control where the MaxDOS commodity will be installed."
  44.     "\n\n   Placing the commodity in \"WBStartup\" will cause the commodity "
  45.     "to be started automatically when you boot your system."
  46. ))
  47.  
  48. (set #ask-mount-1
  49. (cat "Install Mounter"
  50. ))
  51.  
  52. (set #mount-dest-help
  53. (cat "\n   This allows you to control where MaxDOS Mounter will be installed."
  54.     "\n\n   MaxDOS Mounter is a utility that allows you "
  55.     "to scan drives on your system and automatically "
  56.     "generate the necessary data files (mountlists) "
  57.     "that are required to access Mac disks.\n\n"
  58. ))
  59.  
  60. (set #no-mfm
  61. (cat "\nYou do not appear to have the file \"mfm.device\" in your "
  62.     "DEVS: directory.  This will not affect your ability to access "
  63.     "SCSI devices, but it does preclude your ability to access "
  64.     "high-density floppies (possible only with a high-density drive).\n"
  65.     "\nThis file is part of the standard distribution of Workbench 2.1 "
  66.     "and above, and is also part of Consultron(TM)'s CrossDOS(TM) package."
  67. ))
  68.  
  69. (set _InstallMountlists
  70. (cat "\nWould you like to install pre-made mountlists for high-density floppy drives?"
  71. ))
  72.  
  73. (set _InstallMountlistsHelp
  74. (cat "\n  Selecting \"Yes\" will install the pre-made mountlists necessary to access "
  75.      "high-density Mac floppies.  These mountlists can also be generated by "
  76.      "Mounter--see your manual for more information.\n"
  77.      "\n  To use MaxDOS with high-density Mac floppies, you will need a "
  78.      "high-density floppy drive."
  79. ))
  80.  
  81. (set _CopyMountlistHelp
  82. (cat "\nThis allows you to decide which pre-made mountlist(s) will be installed.\n"
  83.      "  \n\"MF0\" will enable use of Mac format floppies in the drive normally "
  84.      "referred to as \"DF0\", \"MF1\" enables use in \"DF1\", and so on."
  85. ))
  86.  
  87. (set _CopyMountlistPrompt
  88. (cat "Please select the mountlist(s) you would like installed.")
  89. )
  90.  
  91. (set _AutomountPrompt
  92. (cat "\nDo you want these drives to be automatically mounted "
  93.      "when you boot your system?")
  94. )
  95.  
  96. (set _AutomountHelp
  97. (cat "\nSelecting \"Yes\" will make these drives automatically available "
  98.      "when you boot your system.")
  99. )
  100.  
  101. ;===========================================
  102. ; Start
  103.  
  104. (message #introduction)
  105.  
  106. (set dest-dir "l:")
  107. (copyfiles (source "MaxDOS:l/MaxDOSFileSystem")
  108.          (dest dest-dir)
  109. )
  110.  
  111. (complete 40)
  112.  
  113. (
  114.    (delete "SYS:Tools/Commodities/MaxDOS" (infos))
  115.    (delete "SYS:WBStartup/MaxDOS" (infos))
  116.  
  117.  
  118.    (if (askbool (prompt #ask-com-auto-start)
  119.                 (help #com-auto-start-help)
  120.                 (choices #ask-auto-com-1 #ask-auto-com-2)
  121.        )
  122.  
  123.        (
  124.        (set dest-dir "SYS:WBStartup")
  125.        (set tool-type "NO")
  126.        )
  127.        (
  128.        (set dest-dir (askdir (default "SYS:Tools/Commodities")
  129.                      (prompt "Select a destination for the MaxDOS commodity")
  130.                      (help #commod-dest-help)
  131.                  )
  132.        )
  133.        (set tool-type "YES")
  134.        )
  135.    )
  136.    
  137.  
  138.    (
  139.       (copyfiles (source ("MaxDOS:Tools/Commodities/MaxDOS"))
  140.                  (dest dest-dir)
  141.                  (infos)
  142.       )
  143.       (tooltype (dest (tackon dest-dir "MaxDOS"))
  144.                 (noposition)
  145.                 (settooltype "CX_POPUP" tool-type)
  146.       )
  147.       (message ("\nThe MaxDOS commodity has been placed in \"%s\"" dest-dir))
  148.    )
  149. )
  150.  
  151. (complete 70)
  152.  
  153. (
  154.    (set source-dir "MaxDOS:Utilities")
  155.    (set dest-dir (askdir (default "SYS:Utilities")
  156.                    (prompt "Select a destination for MaxDOS Mounter")
  157.                    (help #mount-dest-help)
  158.              )
  159.    )
  160.    (copyfiles (source (tackon source-dir "Mounter"))
  161.            (dest dest-dir)
  162.            (infos)
  163.            (noposition)
  164.    )
  165.    (tooltype (dest (tackon dest-dir "Mounter"))
  166.              (noposition)
  167.    )
  168.  
  169.    (message ("\nMaxDOS Mounter has been placed in \"%s\"" dest-dir))
  170. )
  171.  
  172. (if (exists "DEVS:mfm.device")
  173.    (
  174.       if (askbool (prompt _InstallMountlists)
  175.                   (help  _InstallMountlistsHelp)
  176.          )
  177.          (
  178.            (set _MF0Bit 0)
  179.            (set _MF1Bit 1)
  180.            (set _MF2Bit 2)
  181.            (set _MF3Bit 3)
  182.            (set _WhichMountlists 0)
  183.  
  184.            (set _WhichMountlists (askoptions (prompt _CopyMountlistPrompt)
  185.                                              (choices ("MF0") ("MF1") ("MF2") ("MF3"))
  186.                                              (help _CopyMountlistHelp)
  187.                                              (default 1)
  188.                                  )
  189.            )
  190.  
  191.            (if (AND (exists ("SYS:Devs/DOSDrivers")) (exists ("SYS:Storage/DOSDrivers")))
  192.              (set _NewStyle 1)
  193.              (set _NewStyle 0)
  194.            )
  195.  
  196.            (if (askbool (prompt _AutomountPrompt)
  197.                         (help   _AutomountHelp)
  198.                         (choices ("Yes") ("No"))
  199.                )
  200.              (set _AutomountDevs 1)
  201.              (set _AutomountDevs 0)
  202.            )
  203.  
  204.            (if _Newstyle
  205.              (
  206.                (if _AutomountDevs
  207.                  (set _DestDir ("SYS:Devs/DOSDrivers"))
  208.                  (set _DestDir ("SYS:Storage/DOSDrivers"))
  209.                )
  210.                (set _SourceDir ("MaxDOS:Devs/DOSDrivers"))
  211.  
  212.                (if (IN _WhichMountlists _MF0Bit)
  213.                  (copyfiles (source (tackon _SourceDir ("MF0")))
  214.                             (dest   _DestDir)
  215.                             (infos)
  216.                  )
  217.                )
  218.  
  219.                (if (IN _WhichMountlists _MF1Bit)
  220.                  (copyfiles (source (tackon _SourceDir ("MF1")))
  221.                             (dest   _DestDir)
  222.                             (infos)
  223.                  )
  224.                )
  225.  
  226.                (if (IN _WhichMountlists _MF2Bit)
  227.                  (copyfiles (source (tackon _SourceDir ("MF2")))
  228.                             (dest   _DestDir)
  229.                             (infos)
  230.                  )
  231.                )
  232.  
  233.                (if (IN _WhichMountlists _MF3Bit)
  234.                  (copyfiles (source (tackon _SourceDir ("MF3")))
  235.                             (dest   _DestDir)
  236.                             (infos)
  237.                  )
  238.                )
  239.              )
  240.  
  241.              (
  242.                (copyfiles (source "MaxDOS:Devs/mountlist.maxdos")
  243.                           (dest   "DEVS:")
  244.                )
  245.  
  246.                (if (IN _WhichMountlists _MF0Bit)
  247.                  (startup ("MaxDOS") ("Mount MF0: FROM DEVS:mountlist.maxdos"))
  248.                )
  249.  
  250.                (if (IN _WhichMountlists _MF1Bit)
  251.                  (startup ("MaxDOS") ("Mount MF1: FROM DEVS:mountlist.maxdos"))
  252.                )
  253.  
  254.                (if (IN _WhichMountlists _MF2Bit)
  255.                  (startup ("MaxDOS") ("Mount MF2: FROM DEVS:mountlist.maxdos"))
  256.                )
  257.  
  258.                (if (IN _WhichMountlists _MF3Bit)
  259.                  (startup ("MaxDOS") ("Mount MF3: FROM DEVS:mountlist.maxdos"))
  260.                )
  261.              )
  262.  
  263.            )
  264.          )
  265.    )
  266.    (message #no-mfm)
  267. )
  268.  
  269. (run "copy MaxDOS:S/MaxDOS.serialnumber TO ENV:MAXDOSSERIALNUMBER")
  270.  
  271. (message ("\nYour MaxDOS serial number is:\n\n%s\n" (getenv ("MAXDOSSERIALNUMBER")))
  272.          ("\nPlease record this number on your registration card.\n")
  273.          ("\nYou can also find your serial number in Mounter's \"About\" window.")
  274. )
  275.  
  276. (complete 100)
  277.